-- card: 3276 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2691
-- name: 
----- HyperTalk script -----
on opencard
  put empty into card field "status"
end opencard



-- part 2 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=332 top=37 right=58 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: object


-- part 3 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=332 top=59 right=80 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: type


-- part 4 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=332 top=81 right=101 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: zone


-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=367 top=8 right=32 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Register
----- HyperTalk script -----
on mouseDown
  put Register( first line of card field object, first line of card field type, first line of card field zone) into card field "status"
end mouseDown



-- part 6 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=144 top=37 right=101 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: status


-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=369 top=106 right=130 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Remove
----- HyperTalk script -----
on mouseDown
  put Remove( first line of card field object, first line of card field type, first line of card field zone) into card field "status"
end mouseDown



-- part contents for card part 2
----- text -----
Gert

-- part contents for card part 3
----- text -----
HyperCard

-- part contents for card part 4
----- text -----
*